home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / sapphb.zip / SUSER.INC < prev    next >
Text File  |  1992-10-06  |  2KB  |  50 lines
  1. TYPE
  2.  
  3.   UserType =
  4.   RECORD
  5.     {--- General Info ---}
  6.     RealName  : String20;    { Real Name }
  7.     Phone     : STRING[25];  { Voice phone number }
  8.     UserName  : String20;    { Sign-on name }
  9.     Password  : STRING[10];  { Sign-on password }
  10.     Level     : BYTE;        { Membership level, 1 to 8 }
  11.     Date_Last : WORD;        { Date of last call; if 0, flagged as deleted }
  12.     Mint_Last : WORD;        { Minute-of-the-day of last call }
  13.     Y_Lib     : WORD;
  14.     M_Lib     : BYTE;        { Y/M/D of last library read }
  15.     D_Lib     : BYTE;
  16.     File_Last : WORD;        { Date files listing was last viewed }
  17.     ClrScreen : CHAR;        { Should screen be cleared?  Y or N }
  18.     ScanMail  : CHAR;        { Scan for mail at logon time?  Y or N }
  19.     SpareX    : ARRAY[1..8] OF BYTE;
  20.     Width     : WORD;        { Screen width }
  21.     Depth     : WORD;        { Screen depth }
  22.         DefGear   : BYTE;        { Default gear }
  23.         DefWrap   : BOOLEAN;     { Default word-wrap }
  24.         Expert    : CHAR;        { Expert mode }
  25.     Pausing   : CHAR;        { Pause-during-read control }
  26.     Colour    : BOOLEAN;     { Use ANSI colour controls? }
  27.     IBMChars  : BOOLEAN;     { Are IBM characters available? }
  28.     Protocol  : CHAR;        { Upload/download protocol }
  29.     Bonus     : BYTE;        { Bonus minutes for uploading }
  30.     DownLoadK : LONGINT;     { K downloaded from files }
  31.     UpLoadK   : LONGINT;     { K uploaded to files }
  32.     NtPdExpl  : BYTE;        { Number of times notepad was explained }
  33.     Spare     : ARRAY[1..20] OF BYTE;
  34.     {--- Bulletins-Read Info ---}
  35.     { 0 is OBSERVE, 1-15 are messages }
  36.         ReadTimes : ARRAY[0..MaxBases] OF
  37.       RECORD
  38.           D : WORD;
  39.             M : WORD;
  40.       END;
  41.     {----- Additional user information -----}
  42.     NumVisits   : WORD;      { Number of visits }
  43.     NumPosts    : WORD;      { Number of messages sent }
  44.     SpareW1     : WORD;      { Used to be DownloadK; init'd to 0 }
  45.     DownloadNum : WORD;      { Number of files downloaded }
  46.     SpareW2     : WORD;      { Used to be UploadK; init'd to 0 }
  47.     UploadNum   : WORD;      { Number of files uploaded }
  48.     Locked      : BOOLEAN;   { Reserved }
  49.   END;
  50.